home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tafltggr.lha / rexx / PrivUser.logon < prev    next >
Text File  |  1995-03-05  |  1KB  |  53 lines
  1. /* Logon.trans */
  2. /* Beispielscript fuer Private-FileAreas, es muss in File.cfg keine
  3.    seperate Area eingetragen werden !!!
  4. */
  5.  
  6. options results
  7.  
  8. if SHOW('Libraries','rexxsupport.library')~=1 then
  9.   if ADDLIB("rexxsupport.library",0,-30,0)~=1 then
  10.   do
  11.     Print
  12.     Print 'ERROR: rexxsupport.library is not available...'
  13.     Print 'Please Inform Sysop.'
  14.     Sysoplog 'Logon.trans failed: Requires rexxsupport.library.'
  15.     exit 20
  16.   end
  17. if ~show('l', "rexxarplib.library") then do
  18. /*check = addlib('rexxmathlib.library',0,-30,0)*/
  19. check = addlib('rexxarplib.library',0,-30,0)
  20. end
  21.  
  22. userinfo 'a'   ; name=result
  23. name=compress(name)
  24. systeminfo '8' ; line = result
  25.  
  26. userinfo 'o'   ; access = result
  27.  
  28. IF access>0 then do
  29.   call PrivArea
  30. end
  31.  
  32. exit
  33.  
  34. PrivArea:
  35. options failat 200
  36. if access>=50 then do
  37.         address command "assign remove PrivDir:"
  38.         dir='"PrivFiles:'name'"'
  39.         if exists("privfiles:"name) then DO
  40.           print "Checke Deine private Filearea nach Dateien!"
  41.           end
  42.         else do
  43.           address command "makedir "dir
  44.           print "Es gibt seit neuestem eine private Filearea fuer Dich !"
  45.           print "Dort kannst Du Dateien fuer andere Usern uploaden und"
  46.           print "mit Transmit zuschicken."
  47.         end
  48.         address command 'bbs:bin/TAUpdateFL DIR "PRIVFiles:'||name||'"'
  49.         address command 'assign PrivDir: 'dir
  50.         end
  51. RETURN
  52.  
  53.